empty

requires fpmath.icode.f

cd src
requires ged
cd ..

: start
   \ 640 480 window
   UP@ OPERATOR !
   init-video-driver
   /onload
   init
   /forth
   'ONLOAD CALLS
   \ init-all
\   cmdline nip if
\      s" load " pad place
\      cmdline pad append
\      pad count evaluate
\   else
      blank
\   then
      go
      close-display
      0 ExitProcess    ;


' start 'main !
0 cmdline drop 1 - c!
true to exe?
program ged
